home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / syslog_1 / DEMO1.FRM next >
Text File  |  1998-01-18  |  11KB  |  377 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3930
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1710
  7.    ClientWidth     =   6315
  8.    Height          =   4335
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3930
  12.    ScaleWidth      =   6315
  13.    Top             =   1365
  14.    Width           =   6435
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Send Message"
  17.       Height          =   375
  18.       Left            =   3120
  19.       TabIndex        =   18
  20.       Top             =   3120
  21.       Width           =   1335
  22.    End
  23.    Begin VB.CheckBox Check4 
  24.       Caption         =   "Audio Alert Enable"
  25.       Height          =   255
  26.       Left            =   720
  27.       TabIndex        =   17
  28.       Top             =   3480
  29.       Width           =   2055
  30.    End
  31.    Begin VB.CheckBox Check3 
  32.       Caption         =   "File Logging Enabled"
  33.       Height          =   255
  34.       Left            =   720
  35.       TabIndex        =   16
  36.       Top             =   2760
  37.       Width           =   1935
  38.    End
  39.    Begin VB.CheckBox Check2 
  40.       Caption         =   "Show Time"
  41.       Height          =   255
  42.       Left            =   720
  43.       TabIndex        =   15
  44.       Top             =   3240
  45.       Width           =   1215
  46.    End
  47.    Begin VB.CheckBox Check1 
  48.       Caption         =   "Syslog Enabled"
  49.       Height          =   255
  50.       Left            =   720
  51.       TabIndex        =   14
  52.       Top             =   3000
  53.       Width           =   1575
  54.    End
  55.    Begin VB.ComboBox Priority 
  56.       Height          =   315
  57.       Left            =   2400
  58.       TabIndex        =   11
  59.       Top             =   2280
  60.       Width           =   1935
  61.    End
  62.    Begin VB.ComboBox Facility 
  63.       Height          =   315
  64.       Left            =   2400
  65.       TabIndex        =   10
  66.       Top             =   1920
  67.       Width           =   1935
  68.    End
  69.    Begin VB.TextBox Text5 
  70.       Height          =   285
  71.       Left            =   2400
  72.       TabIndex        =   4
  73.       Top             =   1560
  74.       Width           =   3015
  75.    End
  76.    Begin VB.TextBox Text4 
  77.       Height          =   285
  78.       Left            =   2400
  79.       TabIndex        =   3
  80.       Top             =   1200
  81.       Width           =   3015
  82.    End
  83.    Begin VB.TextBox Text3 
  84.       Height          =   285
  85.       Left            =   2400
  86.       TabIndex        =   2
  87.       Top             =   840
  88.       Width           =   3015
  89.    End
  90.    Begin VB.TextBox Text2 
  91.       Height          =   285
  92.       Left            =   2400
  93.       TabIndex        =   1
  94.       Top             =   480
  95.       Width           =   3015
  96.    End
  97.    Begin VB.TextBox Text1 
  98.       Height          =   285
  99.       Left            =   2400
  100.       TabIndex        =   0
  101.       Top             =   120
  102.       Width           =   3015
  103.    End
  104.    Begin VB.Label Label7 
  105.       Alignment       =   1  'Right Justify
  106.       Caption         =   "Priority"
  107.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   8.25
  110.          Charset         =   0
  111.          Weight          =   700
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   255
  117.       Left            =   960
  118.       TabIndex        =   13
  119.       Top             =   2280
  120.       Width           =   1335
  121.    End
  122.    Begin VB.Label Label6 
  123.       Alignment       =   1  'Right Justify
  124.       Caption         =   "Facility"
  125.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  126.          Name            =   "MS Sans Serif"
  127.          Size            =   8.25
  128.          Charset         =   0
  129.          Weight          =   700
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       Height          =   255
  135.       Left            =   1080
  136.       TabIndex        =   12
  137.       Top             =   1920
  138.       Width           =   1215
  139.    End
  140.    Begin VB.Label Label5 
  141.       Alignment       =   1  'Right Justify
  142.       Caption         =   "Sound File"
  143.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.          Name            =   "MS Sans Serif"
  145.          Size            =   8.25
  146.          Charset         =   0
  147.          Weight          =   700
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   255
  153.       Left            =   1320
  154.       TabIndex        =   9
  155.       Top             =   1560
  156.       Width           =   975
  157.    End
  158.    Begin VB.Label Label4 
  159.       Alignment       =   1  'Right Justify
  160.       Caption         =   "Log File"
  161.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   8.25
  164.          Charset         =   0
  165.          Weight          =   700
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       Height          =   255
  171.       Left            =   1200
  172.       TabIndex        =   8
  173.       Top             =   1200
  174.       Width           =   1095
  175.    End
  176.    Begin VB.Label Label3 
  177.       Alignment       =   1  'Right Justify
  178.       Caption         =   "Message"
  179.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   255
  189.       Left            =   1560
  190.       TabIndex        =   7
  191.       Top             =   840
  192.       Width           =   735
  193.    End
  194.    Begin VB.Label Label2 
  195.       Alignment       =   1  'Right Justify
  196.       Caption         =   "Header"
  197.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  198.          Name            =   "MS Sans Serif"
  199.          Size            =   8.25
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Height          =   255
  207.       Left            =   1560
  208.       TabIndex        =   6
  209.       Top             =   480
  210.       Width           =   735
  211.    End
  212.    Begin VB.Label Label1 
  213.       Alignment       =   1  'Right Justify
  214.       Caption         =   "Destination Address"
  215.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  216.          Name            =   "MS Sans Serif"
  217.          Size            =   8.25
  218.          Charset         =   0
  219.          Weight          =   700
  220.          Underline       =   0   'False
  221.          Italic          =   0   'False
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       Height          =   255
  225.       Left            =   480
  226.       TabIndex        =   5
  227.       Top             =   120
  228.       Width           =   1815
  229.    End
  230.    Begin SYSLOGXLib.Syslogx Syslogx1 
  231.       Left            =   4680
  232.       Top             =   1920
  233.       _Version        =   65536
  234.       _ExtentX        =   800
  235.       _ExtentY        =   800
  236.       _StockProps     =   96
  237.       AlertSound      =   ""
  238.       DestIP          =   ""
  239.    End
  240. End
  241. Attribute VB_Name = "Form1"
  242. Attribute VB_Creatable = False
  243. Attribute VB_Exposed = False
  244. Option Explicit
  245.  
  246. Private Sub Command1_Click()
  247. Syslogx1.DestIP = Text1.Text
  248. Syslogx1.Header = Text2.Text
  249. If (Check1 = 0) Then
  250.     Syslogx1.Enabled = False
  251. Else
  252.     Syslogx1.Enabled = True
  253. End If
  254. If (Check2 = 0) Then
  255.     Syslogx1.ShowTime = False
  256. Else
  257.     Syslogx1.ShowTime = True
  258. End If
  259. If (Check3 = 0) Then
  260.     Syslogx1.FileLogEnable = False
  261. Else
  262.     Syslogx1.FileLogEnable = True
  263. End If
  264. If (Check4 = 0) Then
  265.     Syslogx1.AlertEna